home *** CD-ROM | disk | FTP | other *** search
/ Exploring Where & Why / Exploring Where & Why.iso / pc / MODULES / LESSON02 / ACT02A / common2.cst / 00100.ls < prev    next >
Encoding:
Text File  |  2003-09-23  |  129 b   |  6 lines
  1. on regpoint castname,b,e
  2.   repeat with i=b to e
  3.     set the regpoint of member i of castlib castname=point(0,0)
  4.   end repeat
  5. end
  6.